home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Generators / Grammars / gen-notrans < prev    next >
Text File  |  1998-10-23  |  624b  |  19 lines
  1. gen-notrans symbol depth &optional tree
  2.  
  3. Generates an association structure of symbol at depth, and returns the new list. This function generates patterns having many repeating elements.
  4.  
  5. (initdef)
  6. (defsym a '(a b c))
  7. (defsym b '(c d e c b a))
  8.  
  9. (gen-notrans a 4)
  10. --> (a a a a a b c b c d e c b a c b c d e c b c d ...)
  11.  
  12. The :tree is 'default if not given. If you want to keep multiple definitions in memory at the same time without interference problems use different trees.
  13.  
  14. (initdef 'melody1)
  15. (defsym a '(a b) :tree 'melody1)
  16. (defsym b '(a b) :tree 'melody1)
  17. (gen-notrans a 3 'melody1)
  18. --> (a a a a b b a b b a a b b a b)
  19.